Sports Illustrated for Kids - Awesome Athletes!/Sports Illustrated for Kids - Awesome Athletes!.iso/iv.dir/00006_Mode scripts.ls

Text File | 1996-04-19 | 7.1 KB | 164 lines

on SetMode _mode, override, anim
  global givState, givCONTROLPANELSPRITE, givEDITTEXTBOXSPRITE, givMAINMONITORSPRITE, givDebug, givAnimEnable, givBASEMONITORSPRITE, givLOADSPRITE, givOrigTransitionList
  if _mode = #play then
    MoveModeSwitch(1)
  else
    MoveModeSwitch(5)
  end if
  if (the mode of givState = _mode) and voidp(override) then
    nothing()
  else
    set the castNum of sprite (givCONTROLPANELSPRITE + 8) to the number of cast "nullcast"
    set the castNum of sprite (givCONTROLPANELSPRITE + 9) to the number of cast "nullcast"
    set the castNum of sprite (givCONTROLPANELSPRITE + 10) to the number of cast "nullcast"
    set the castNum of sprite (givCONTROLPANELSPRITE + 11) to the number of cast "nullcast"
    updateStage()
    set the mode of givState to _mode
    if _mode = #play then
      repeat with N = 1 to 11
        set the visible of sprite (givCONTROLPANELSPRITE + N) to 0
      end repeat
      updateStage()
      if (anim <> "skip") and givAnimEnable then
        PlayAnim(givCONTROLPANELSPRITE, "EditToPlay", 8, 1)
      end if
      set the castNum of sprite (givBASEMONITORSPRITE + 2) to the number of cast GetRandomMonitor()
      set the castNum of sprite (givBASEMONITORSPRITE + 3) to the number of cast GetRandomMonitor()
      set the castNum of sprite (givBASEMONITORSPRITE + 5) to the number of cast GetRandomMonitor()
      if (the activeMonitor of givState = 2) or (the activeMonitor of givState = 3) or (the activeMonitor of givState = 5) then
        SetActiveMonitor(1)
        SetQuestionTextBox(1)
      end if
      set the castNum of sprite givCONTROLPANELSPRITE to the number of cast "ControlPanelPlay"
      set the castNum of sprite (givCONTROLPANELSPRITE + 8) to the number of cast "play mode next button"
      set the locH of sprite (givCONTROLPANELSPRITE + 8) to 429
      set the locV of sprite (givCONTROLPANELSPRITE + 8) to 429
      set the castNum of sprite (givCONTROLPANELSPRITE + 9) to the number of cast "play mode play button"
      set the locH of sprite (givCONTROLPANELSPRITE + 9) to 357
      set the locV of sprite (givCONTROLPANELSPRITE + 9) to 429
      set the castNum of sprite (givCONTROLPANELSPRITE + 10) to the number of cast "play mode stop button"
      set the locH of sprite (givCONTROLPANELSPRITE + 10) to 285
      set the locV of sprite (givCONTROLPANELSPRITE + 10) to 429
      set the castNum of sprite (givCONTROLPANELSPRITE + 11) to the number of cast "play mode previous button"
      set the locH of sprite (givCONTROLPANELSPRITE + 11) to 212
      set the locV of sprite (givCONTROLPANELSPRITE + 11) to 429
      set the locH of sprite (givCONTROLPANELSPRITE + 3) to -100
      set the locV of sprite (givCONTROLPANELSPRITE + 3) to -100
      set the visible of sprite (givCONTROLPANELSPRITE + 8) to 1
      set the visible of sprite (givCONTROLPANELSPRITE + 9) to 1
      set the visible of sprite (givCONTROLPANELSPRITE + 10) to 1
      set the visible of sprite (givCONTROLPANELSPRITE + 11) to 1
      set the visible of sprite givEDITTEXTBOXSPRITE to 0
      set the castNum of sprite givMAINMONITORSPRITE to the number of cast "MainMonitorCastBlack"
      if count(the editList of givState) > 0 then
        SetMonitorListByNumber(3, the editList of givState)
        SetMonitorPtr(givState, 3, 1)
        DisplayMonitor(3)
        BuildEditListText()
      end if
    else
      repeat with N = 1 to 11
        set the visible of sprite (givCONTROLPANELSPRITE + N) to 0
      end repeat
      updateStage()
      if (anim <> "skip") and givAnimEnable then
        PlayAnim(givCONTROLPANELSPRITE, "EditToPlay", 8, -1)
      end if
      set the castNum of sprite givCONTROLPANELSPRITE to the number of cast "ControlPanelEdit"
      updateStage()
      SetMonitorListByNumber(3, givOrigTransitionList)
      SetMonitorPtr(givState, 3, 1)
      DisplayEditTextBox()
      if the activeMonitor of givState = 3 then
        SetQuestionTextBox(1)
      end if
      DisplayMonitor(2)
      DisplayMonitor(3)
      DisplayMonitor(5)
      set the castNum of sprite (givCONTROLPANELSPRITE + 8) to the number of cast "next button"
      set the locH of sprite (givCONTROLPANELSPRITE + 8) to 426
      set the locV of sprite (givCONTROLPANELSPRITE + 8) to 414
      set the castNum of sprite (givCONTROLPANELSPRITE + 9) to the number of cast "play button"
      set the locH of sprite (givCONTROLPANELSPRITE + 9) to 355
      set the locV of sprite (givCONTROLPANELSPRITE + 9) to 413
      set the castNum of sprite (givCONTROLPANELSPRITE + 10) to the number of cast "stop button"
      set the locH of sprite (givCONTROLPANELSPRITE + 10) to 284
      set the locV of sprite (givCONTROLPANELSPRITE + 10) to 413
      set the castNum of sprite (givCONTROLPANELSPRITE + 11) to the number of cast "previous button"
      set the locH of sprite (givCONTROLPANELSPRITE + 11) to 213
      set the locV of sprite (givCONTROLPANELSPRITE + 11) to 413
      set the locH of sprite (givCONTROLPANELSPRITE + 3) to 319
      set the locV of sprite (givCONTROLPANELSPRITE + 3) to 437
      set the visible of sprite (givCONTROLPANELSPRITE + 1) to 1
      set the visible of sprite (givCONTROLPANELSPRITE + 2) to 1
      set the visible of sprite (givCONTROLPANELSPRITE + 3) to 1
      set the visible of sprite (givCONTROLPANELSPRITE + 4) to 1
      set the visible of sprite (givCONTROLPANELSPRITE + 5) to 1
      set the visible of sprite (givCONTROLPANELSPRITE + 6) to 1
      set the visible of sprite (givCONTROLPANELSPRITE + 7) to 1
      set the visible of sprite (givCONTROLPANELSPRITE + 8) to 1
      set the visible of sprite (givCONTROLPANELSPRITE + 9) to 1
      set the visible of sprite (givCONTROLPANELSPRITE + 10) to 1
      set the visible of sprite (givCONTROLPANELSPRITE + 11) to 1
      set the visible of sprite givEDITTEXTBOXSPRITE to 1
      set the castNum of sprite givMAINMONITORSPRITE to the number of cast "MainMonitorCast"
    end if
  end if
  MessagePut("mode set to" && the mode of givState)
end

on ModeSwitchDrag
  global givCONTROLPANELSPRITE, givState
  set tmp to the mode of givState
  PlaySoundWait("LEVER.AIF")
  set executeOnce to 1
  repeat while the mouseDown or executeOnce
    set executeOnce to 0
    set v to the mouseV
    if v < 401 then
      set tmp to #play
      MoveModeSwitch(1)
      next repeat
    end if
    if v < 416 then
      set tmp to #play
      MoveModeSwitch(2)
      next repeat
    end if
    if v < 431 then
      set tmp to #anim
      MoveModeSwitch(3)
      next repeat
    end if
    if v < 446 then
      set tmp to #edit
      MoveModeSwitch(4)
      next repeat
    end if
    set tmp to #edit
    MoveModeSwitch(5)
  end repeat
  if tmp = #anim then
    repeat with I = 1 to 11
      set the visible of sprite (givCONTROLPANELSPRITE + I) to 0
    end repeat
    updateStage()
    PlaySoundWait("LEVERHAF.AIF")
    if the mode of givState = #play then
      PlayAnim(givCONTROLPANELSPRITE, "PlayToEdit", 4, 1)
    else
      PlayAnim(givCONTROLPANELSPRITE, "EditToPlay", 5, 1)
    end if
    go("ivTrollAnim")
    exit
  end if
  SetMode(tmp)
end

on MoveModeSwitch val
  global givMODESWITCHSPRITE
  MessagePut("move mode switch, position:" && val)
  set the castNum of sprite givMODESWITCHSPRITE to 179 + val
  updateStage()
end